home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / a mon secours (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  195 lines
  1. 345 POKE 53280,14:POKE53281,14:POKE53272,23
  2. 370 PRINT"[147]":POKE646,0:PRINTTAB(7)"[193]   [205] [207] [206]   [211] [197] [195] [207] [213] [210] [211]
  3. 375 [153][163]18)"PAR":[153][163]6)"(null)T. (null)OUIS-(null)ARIE DE (null)ONTFORT
  4. 378 PRINTTAB(19)"[219]
  5. 380 [153]"10 SECONDES D'ATTENTE, S.V.P...
  6. 390 FORAA=1TO4000:NEXT
  7. 440 CM=12288:CX=55296:GOSUB605
  8. 442 POKE53272,(PEEK(53272)AND240)OR12
  9. 455 FORI=824TO831:READN:POKECM+I,N:NEXT:REM EMPL M POUR SEDILLE
  10. 460 FORI=784TO791:READN:POKECM+I,N:NEXT:REM I DEUX PTS
  11. 465 FORI=800TO807:READN:POKECM+I,N:NEXT:REM @ U ACC GRAVE PPRCLP
  12. 470 FORI=928TO935:READN:POKECM+I,N:NEXT:REM H POUR E ACC CIRC
  13. 475 FORI=816TO823:READN:POKECM+I,N:NEXT:REM SIGNE + COMME PPRCLP FOR U 2 PTS
  14. 480 FORI=832TO839:READN:POKECM+I,N:NEXT:REM \ SIGNE PR E ACC GRAVE
  15. 485 FORI=888TO895:READN:POKECM+I,N:NEXT:REM P POUR A ACC CIRC
  16. 490 FORI=944TO951:READN:POKECM+I,N:NEXT:REM L POUR E ACC AIGU
  17. 495 FORI=952TO959:READN:POKECM+I,N:NEXT:REM:Y POUR A ACC GRAVE
  18. 500 FORI=960TO967:READN:POKECM+I,N:NEXT:REM U POUR U ACC CIRC
  19. 505 FORI=968TO975:READN:POKECM+I,N:NEXT:REM O POUR O ACC CIRC
  20. 510 FORI=936TO943:READN:POKECM+I,N:NEXT:REM J FOR E 2 PTS
  21. 520 FORI=776TO783:READN:POKECM+I,N:NEXT:REM:K FOR I ACC CIRC
  22. 595 PRINT"[147]"
  23. 600 GOTO900
  24. 605 POKE56334,PEEK(56334)AND254
  25. 610 POKE1,PEEK(1)AND251
  26. 615 FORI=0TO2047:POKECM+I,PEEK(CX+I):NEXT
  27. 620 POKE1,PEEK(1)OR4
  28. 625 POKE56334,PEEK(56334)OR1
  29. 630 RETURN
  30. 635 DATA 0,0,60,96,96,96,60,16:REM C SEDILLE
  31. 640 DATA 40,0,56,24,24,24,60,0:REM I DEUX PTS
  32. 645 DATA 32,16,102,102,102,102,62,0:REM U ACC GRAVE
  33. 650 DATA 8,20,60,102,126,96,60,0:REM E ACC CIRC
  34. 655 DATA 36,0,102,102,102,102,62,0:REM U 2 PTS
  35. 660 DATA 32,16,60,102,126,96,60,0:REM E ACC CIRC
  36. 665 DATA 8,20,60,6,62,102,62,0:REM A ACC CIRC
  37. 670 DATA 4,8,60,102,126,96,60,0:REM E ACC AIGU
  38. 675 DATA 16,8,60,6,62,102,62,0:REM A ACC GRAVE
  39. 680 DATA 24,36,102,102,102,102,62,0:REM U ACC CIRC
  40. 685 DATA 24,36,60,102,102,102,60,0:REM O ACC CIRC
  41. 690 DATA 36,0,60,102,126,96,60,0:REM E 2 PTS
  42. 700 DATA 16,40,56,24,24,24,60,0:REM K I ACC CIRC
  43. 900 PRINT"[147]":PRINTTAB(9)"[193] MON SECOURS,
  44. 910 [153]"(null) DOUCE ET DIVINE (null)ARIE,":[153][163]9)"ATN MON SECOURS!
  45. 920 PRINT"[202]E SOUFFRE ET G[182]MIS TOUS LES JOURS.
  46. 930 [153]"ATN MES MAUX SOYEZ ATTENDRIE,":[153]"STR$ABSLIVREZ-M'EN, JE (null)OUS";
  47. 940 [153]" EN PRIE.":[153][163]9)"ATN MON SECOURS! [BIS]
  48. 950 FORAA=1TO750:NEXT:VS=1:GOTO1300
  49. 960 PRINT"[147]":PRINTCHR$(144);
  50. 965 PRINT"[147]":PRINTTAB(9)"[211]ECOUREZ-MOI,"
  51. 967 PRINT"[214]OUS [180]TES PLEINE DE CL[182]MENCE
  52. 970 [153][163]9)"(null)ECOUREZ-MOI!":[153]"(null)OUT EST SOUMIS USR (null)OTRE LOI.
  53. 980 PRINT"[196]ONNEZ-MOI DONC QUELQUE ASSISTANCE
  54. 990 [153]"(null)U BIEN LE DON DE PATIENCE.":[153][163]9)"(null)ECOUREZ-MOI! [BIS]
  55. 1000 FORAA=1TO750:NEXTAA:VS=2:GOTO1470
  56. 1005 PRINT"[147]"
  57. 1010 PRINTTAB(9)"[208]ARLEZ, PARLEZ!
  58. 1015 [153]"(null)OUS POUVEZ TOUT, PUISSANTE (null)EINE.
  59. 1020 PRINTTAB(9)"[208]ARLEZ, PARLEZ!":PRINT"[202]E SUIS GU[182]RI SI [214]OUS VOULEZ.
  60. 1030 [153]"STR$'UN SEUL MOT (null)OUS ROMPREZ MA":[153][163]28)"CHANEWNE,
  61. 1040 PRINT"[197]T [214]OUS FEREZ CESSER MA PEINE."
  62. 1045 PRINTTAB(9)"[208]ARLEZ, PARLEZ! [BIS]
  63. 1050 [129]AA[178]1[164]750:[130]AA:VS[178]3:[137]1470
  64. 1055 [153]"LOAD"
  65. 1060 [153][163]9)"(null)'SGNTES-(null)OUS PLUS":[153]"(null)E REMNOTDE DES INCURABLES?
  66. 1070 PRINTTAB(9)"[206]'[180]TES-[214]OUS PLUS":PRINT"[204]A SANT[182] DES PAUVRES PERCLUS,
  67. 1080 [153]"(null)E GRAND REFUGE DES COUPABLES,
  68. 1090 PRINT"[204]'UNIQUE APPUI DES MIS[182]RABLES?":PRINTTAB(9)"[206]'[180]TES-[214]OUS PLUS?";
  69. 1100 PRINT" [BIS]":VS=4:GOTO1470
  70. 1105 PRINT"[147]"
  71. 1110 PRINTTAB(9)"[198]RAPPEZ, FRAPPEZ,":PRINT"[204]'ENNEMI ME PRESSE ET ME TENTE,
  72. 1120 [153][163]9)"ASCRAPPEZ, FRAPPEZ,":[153]"VALCRASEZ, FOULEZ USR (null)OS PIEDS.
  73. 1130 PRINT"[211]OUS [214]OTRE MAIN TOUTE-PUISSANTE,
  74. 1140 [153]"(null)OUT L'ENFER PRENDRA L'ABSPOUVANTE."
  75. 1150 [153][163]9)"ASCRAPPEZ, FRAPPEZ! [BIS]":[129]AA[178]1[164]750:[130]AA:VS[178]5:[137]1470
  76. 1160 [153]"LOAD":[153][163]9)"(null)UOI! SOUS (null)OS YEUX
  77. 1170 PRINT"[202]E MOURRAI DANS MON INDIGENCE?
  78. 1180 [153][163]9)"(null)UOI! SOUS (null)OS YEUX":[153]"MID$E PABSRIRAI, (null)EINE DES CIEUX?
  79. 1190 PRINT"[206]ON, NON, J'AI MIS MON ESP[182]RANCE
  80. 1200 [153]"VALN (null)OTRE NOM PLEIN D'ABONDANCE.
  81. 1210 PRINTTAB(9)"[209]UOI! SOUS [214]OS YEUX? [BIS]":FORAA=1TO750:NEXTAA:VS=6
  82. 1220 GOTO1470
  83. 1300 DIMFR(73)
  84. 1310 FR(0)=0:FR(1)=536:FR(2)=568:FR(3)=602:FR(4)=637:FR(5)=675:FR(6)=716
  85. 1320 FR(7)=758:FR(8)=803:FR(9)=851:FR(10)=902:FR(11)=955:FR(12)=1012
  86. 1330 FR(13)=1072:FR(14)=1136:FR(15)=1204 :FR(16)=1275:FR(17)=1351:FR(18)=1432
  87. 1340 FR(19)=1517:FR(20)=1607: FR(21)=1703:FR(22)=1804:FR(23)=1911:FR(24)=2025
  88. 1350 FR(25)=2145:FR(26)=2273:FR(27)=2408:FR(28)=2551:FR(29)=2703:FR(30)=2864
  89. 1360 FR(31)=3034:FR(32)=3215:FR(33)=3406:FR(34)=3608:FR(35)= 3823:FR(36)=4050
  90. 1370 FR(37)=4291:FR(38)=4547:FR(39)=4817:FR(40)=5103:FR(41)=5407:FR(42)=5728
  91. 1380 FR(43)=6069:FR(44)=6430:FR(45)=6812:FR(46)=7217:FR(47)=7647:FR(48)=8101
  92. 1390 FR(49)=8583:FR(50)=9094:FR(51)=9634:FR(52)=10207:FR(53)=10814:FR(54)=11457
  93. 1400 FR(55)=12139:FR(56)=12860:FR(57)=13625:FR(58)=14435:FR(59)=15294
  94. 1410 FR(60)=16203
  95. 1420 FR(61)=17167:FR(62)=18188:FR(63)=19269:FR(64)=20415:FR(65)=21629
  96. 1430 FR(66)=22915:FR(67)=24278:FR(68)=25721:FR(69)=27251:FR(70)=28871
  97. 1440 FR(71)=30588:FR(72)=32407:GOSUB2500
  98. 1450 IFVS=1THEN1480
  99. 1470 RESTORE:FORL=1TO104:READN:IFN<>9THENNEXT:GOTO1530
  100. 1480 L1=54272:L2=54279:L3=54286
  101. 1490 H1=L1+1:H2=L2+1:H3=L3+1:VL=54296
  102. 1520 V1=L1+4:V2=L2+4:V3=L3+4:W1=16:W2=64:W3=16:F1=19.2
  103. 1530 POKEVL,15:T=TI
  104. 1540 POKEV1+1,6:POKEV1+2,175
  105. 1550 POKEV2+1,12:POKEV2+2,27:POKEL1+10,8
  106. 1560 POKEV3+1,0:POKEV3+2,191
  107. 1570 POKEV1,W1:POKEV2,W2:POKEV3,W3
  108. 1572 READZ:IFVS=1THENPRINTCHR$(5)V1$(Z);:GOTO1580
  109. 1574 IFVS=>2THENPRINTCHR$(5)V2$(Z);
  110. 1580 READS
  111. 1585 IFS=0THENFORSN=L1TOVL:POKESN,0:NEXTSN:FORAA=1TO1500:NEXT:GOTO1685
  112. 1590 IFS=4.5THENPOKEVL,7
  113. 1600 READX1,X2,X3
  114. 1610 Y1=INT(FR(X1)/256):Z1=FR(X1)-256*Y1
  115. 1615 Y2=INT(FR(X2)/256):Z2=FR(X2)-256*Y2
  116. 1620 Y3=INT(FR(X3)/256):Z3=FR(X3)-256*Y3
  117. 1630 IFX1THENPOKEH1,Y1:POKEL1,Z1:POKEV1,W1+1
  118. 1640 IFX2THENPOKEH2,Y2:POKEL2,Z2:POKEV2,W2+1
  119. 1650 IFX3THENPOKEH3,Y3:POKEL3,Z3:POKEV3,W3+1
  120. 1660 T=T+S*F1
  121. 1670 IFT>TIGOTO1670
  122. 1680 GOTO1570
  123. 1685 ONVSGOTO960,1005,1055,1105,1160,2000
  124. 1690 REM BARS 1-2
  125. 1700 DATA 0,6,0,0,0,1,1,48,51,32,2,1,0,0,39,3,1,0,0,44,4,1,46,49,39
  126. 1710 DATA 5,1,44,48,0,6,1,51,46,37
  127. 1720 DATA 7,1.1,56,44,36,8,1,0,0,39,9,1,0,0,44,10,1,0,0,41
  128. 1725 DATA 11,1,0,0,43,12,1,55,39,37
  129. 1730 REM BARS 3-4
  130. 1740 DATA 13,1,51,44,36,14,1,0,0,39,15,1,0,48,44
  131. 1745 DATA 16,1,51,46,43,17,1,0,44,41,18,1,0,46,43
  132. 1750 DATA 19,1,51,49,46,20,1,0,48,44,21,1,0,46,43
  133. 1755 DATA 22,1,56,44,36,23,1,0,0,39,24,1,0,0,44
  134. 1760 REM BARS 5-6
  135. 1770 DATA 25,1,49,39,41,26,1,0,0,43,27,1.3,0,0,39,28,3,55,51,39
  136. 1780 DATA 29,1,58,49,27,30,1,0,48,0,31,1,55,46,0
  137. 1790 REM BARS 7-8 BEGIN COURS 2E FOIS
  138. 1800 DATA 32,1,51,44,24,33,1,0,0,27,34,1,0,0,32,35,1,0,0,29
  139. 1805 DATA 36,1,0,0,31,37,1,0,39,27
  140. 1810 DATA 38,2,39,44,36,39,1,44,48,39,40,1,43,46,39,41,1,39,44,36,42,1,43,46,27
  141. 1815 REM SFFRE-GEMIS
  142. 1820 REM BARS 9-10
  143. 1830 DATA 43,1,46,49,39,44,1,44,48,39,45,1,43,46,39,46,3.6,39,44,36
  144. 1835 DATA 47,1,39,51,32:REM T JOURS
  145. 1840 DATA 48,1,56,51,36,49,1,0,53,37,50,1,0,51,36
  146. 1845 DATA 51,1,0,48,32,52,1,0,49,34,53,1,0,51,36
  147. 1850 REMBARS 11-12
  148. 1860 DATA 54,2,55,49,34,55,1,0,48,32,56,2.5,0,46,31,57,1,0,46,27
  149. 1870 DATA 58,1,56,48,27,59,1,0,51,0,60,1,0,49,0
  150. 1875 DATA 61,1,55,48,34,62,1,0,46,37,63,1,0,49,34
  151. 1880 REM BARS 13-14
  152. 1890 DATA 64,2,56,48,39,65,1,0,46,37,66,3.5,60,44,36,67,3,31,46,39:REM PRIE! A
  153. 1900 DATA 68,2,44,48,39,69,1,43,46,41
  154. 1910 REM BARS 15-16
  155. 1920 DATA 70,3,39,51,43,71,1.5,58,0,37,72,.5,56,0,36,73,1,55,0,34
  156. 1930 DATA 74,1.5,44,48,39,75,.5,0,0,37,76,1,39,0,44,77,2,36,44,39,78,1,43,46,39
  157. 1940 REM LAST BAR
  158. 1950 DATA 79,1,39,44,37,80,1,0,0,36,81,1,0,0,34,82,4.5,60,51,44,83,0,0,0,0
  159. 2000 PRINT"[147]":PRINTCHR$(5)TAB(8)"[212][207][213][212][160][208][207][213][210][160][202][197][211][213][211][160][208][193][210][160][205][193][210][201][197]":GOTO3100
  160. 2500 C1$="":C2$="":A0$=""
  161. 2520 B0$=CHR$(13)+""
  162. 2530 D1$=B0$+"":A8$="+[157]":E1$=CHR$(13)+"":E2$=CHR$(13)+""
  163. 2535 DIMV1$(83)
  164. 2540 V1$(0)=CHR$(5)+C1$:V1$(1)="[193] ":V1$(2)=A0$:V1$(3)=A0$:V1$(4)="MON "
  165. 2550 V1$(4)="MON ":V1$(5)=A0$:V1$(6)="SE":V1$(7)="COURS!":V1$(8)=A0$
  166. 2560 V1$(9)=A0$:V1$(10)=A0$:V1$(11)=B0$:V1$(12)="[207] ":V1$(13)="DOUCE "
  167. 2570 V1$(14)=A0$:V1$(15)="ET ":V1$(16)="DI":V1$(17)=A0$:V1$(18)="VI"
  168. 2580 V1$(19)="NE ":V1$(20)=A0$:V1$(21)="[205]A":V1$(22)="RI":V1$(23)=A0$
  169. 2590 V1$(24)=A0$:V1$(25)="E,":V1$(26)=D1$:V1$(27)="[145]"
  170. 2600 V1$(28)="[193] ":V1$(29)="MON ":V1$(30)=A0$:V1$(31)="SE":V1$(32)="COURS!"
  171. 2610 V1$(33)=A0$:V1$(34)=A0$:V1$(35)=B0$:V1$(36)=A0$
  172. 2620 V1$(37)="[202]E ":V1$(38)="SOUFFRE ":V1$(39)="ET ":V1$(40)="G[182]"
  173. 2630 V1$(41)=A0$:V1$(42)="MIS ":V1$(43)="TOUS ":V1$(44)=A0$:V1$(45)="LES "
  174. 2640 V1$(46)="JOURS.":V1$(47)=B0$+"[193] ":V1$(48)="MES "
  175. 2650 V1$(49)="MAUX ":V1$(50)="SOY":V1$(51)="EZ ":V1$(52)="AT"
  176. 2660 V1$(53)="TEN":V1$(54)="DRI":V1$(55)=A0$:V1$(56)="E,"+B0$
  177. 2670 V1$(57)="[196][182]":V1$(58)="LI":V1$(59)="VREZ-":V1$(60)="M'EN, "
  178. 2680 V1$(61)="JE ":V1$(62)="[214]OUS ":V1$(63)="EN ":V1$(64)="PRI":V1$(65)=A0$
  179. 2690 V1$(66)="E. "+D1$
  180. 2700 V1$(67)="[145][193] ":V1$(68)="MON ":V1$(69)="SE":V1$(70)="COURS!"
  181. 2710 V1$(72)=A0$:V1$(73)=A0$:V1$(74)=A0$
  182. 2715 V1$(74)=" [BIS]":V1$(83)=CHR$(144)
  183. 2800 DIMV2$(83):V2$(0)=C2$:V2$(1)=A8$
  184. 2810 V2$(11)=E1$:V2$(12)=A8$:V2$(27)=E2$:V2$(28)=A8$
  185. 2820 V2$(36)=E1$:V2$(37)=A8$:V2$(47)=E1$+A8$:V2$(56)=E1$:V2$(57)=A8$
  186. 2830 V2$(66)=E2$:V2$(67)=A8$:V2$(83)=CHR$(144)
  187. 3000 RETURN
  188. 3100 FORAA=1TO3000:NEXT:PRINT"[147]"
  189. 3200 PRINTTAB(14)"[209][213][201][212][212][197][210] - [209]
  190. 3210 [153][163]12)"(null)VAL(null)(null)-(null)(null)(null)RIGHT$(null)(null)VAL - (null)
  191. 3220 POKE198,0
  192. 3230 GETA$:IFA$=""THEN3230
  193. 3240 IFA$="Q"THENEND
  194. 3250 IFA$="M"THENCLR:PRINTCHR$(154):LOAD"MUSIQUE-MEL[210][145]L[182][145]L[144][147]Lu[147]L[249][146]L[147]L[228][151] 20 
  195.